home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: MegaDisc
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf
/
ARexx
/
Modular
/
GadSet.mod
< prev
next >
Wrap
Text File
|
1993-08-19
|
464b
|
13 lines
/* Column of gadgets */
GadSet:
call SetAPen(HO,1) ; call SetBPen(HO,2)
call Move(HO,80,26) ; call Text(HO,' Explore these ')
call SetBPen(HO,0)
call RectFill(HO,14,30,280,180) ; call SetAPen(HO,0)
call RectFill(HO,16,31,278,179) ; call SetAPen(HO,1)
do g = 1 to arg(1)
call AddGadget(HO,arg(2),arg(3) + g*arg(4),g,' 'g' ','%l %d')
end
s = SetClip('gadno',arg(1))
return